home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / WebObjects / SourceCode / ReadWriteStringEx / ReadWriteStringEx.wos < prev   
Encoding:
Text File  |  1996-04-21  |  520 b   |  30 lines
  1. ////////////////////////
  2. //  ReadWriteString
  3. //  by Charles Lloyd
  4. ////////////////////////
  5.  
  6.  
  7. persistent id aString;
  8. persistent id isEditable;
  9. persistent id buttonString;
  10.  
  11. - awake
  12. {
  13.     if (!aString) {
  14.         aString = @"Hello World";
  15.         isEditable = YES;
  16.         [self toggleEditable];
  17.     }
  18. }
  19.  
  20. - toggleEditable
  21. {
  22.     if (isEditable == YES) {
  23.         isEditable = NO;
  24.         buttonString = @"Make Editable";
  25.     } else {
  26.         isEditable = YES;
  27.         buttonString = @"Make Read Only";
  28.     }
  29.     return self;
  30. }